home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4182 / mis_lnk.tut / game.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  6KB  |  84 lines
  1. 1 REM 
  2. 10 KEY
  3. 15 REM >>>  LOAD THE DATAFILES  <<<<
  4. 180 VARNAME
  5. 190 LOGIC
  6. 195 REM >>>  SET THE CLIPPING  <<<<
  7. 2 REM       Example shoot-em-up.    <
  8. 20 IF
  9. 200 EXTENSION (Index #18) (Token 0x84)
  10. 210 EXTENSION (Index #16) (Token 0x82)
  11. 220 EXTENSION (Index #16) (Token 0x80)
  12. 225 REM >>>  GET THE PALETTE  <<<<
  13. 230 VARNAME
  14. 235 REM >>>  SET UP INITIAL VARIABLES  <<<<
  15. 240 VARNAME
  16. 245 VARNAME
  17. 246 FOR
  18. 247 VARNAME
  19. 248 VARNAME
  20. 249 VARNAME
  21. 250 FOR
  22. 251 VARNAME
  23. 252 NEXT
  24. 260 REM 
  25. 270 REM >>>  MAIN LOOP  <<<<
  26. 275 REM 
  27. 280 EXTENSION (Index #16) (Token 0x80)
  28. 285 VARNAME
  29. 286 VARNAME
  30. 290 DEC
  31. 3 REM         By Billy Allan.       <
  32. 30 IF
  33. 300 EXTENSION (Index #18) (Token 0x84)
  34. 310 EXTENSION (Index #18) (Token 0x84)
  35. 320 EXTENSION (Index #18) (Token 0x84)
  36. 330 EXTENSION (Index #16) (Token 0x82)
  37. 340 FOR
  38. 350 IF
  39. 360 IF
  40. 370 VARNAME
  41. 380 IF
  42. 390 IF
  43. 4 REM  For use with the tutorial in <
  44. 40 IF
  45. 400 NEXT
  46. 410 FOR
  47. 420 VARNAME
  48. 430 VARNAME
  49. 440 IF
  50. 450 NEXT
  51. 451 VARNAME
  52. 452 IF
  53. 453 VARNAME
  54. 454 IF
  55. 460 IF
  56. 470 IF
  57. 480 IF
  58. 490 VARNAME
  59. 5 REM        STOSSER diskzine.      <
  60. 50 IF
  61. 500 IF
  62. 510 IF
  63. 520 IF
  64. 530 IF
  65. 540 IF
  66. 55 REM >>>  RESERVE ARRAYS  <<<<
  67. 550 IF
  68. 560 SCREEN SWAP
  69. 570 IF
  70. 575 IF
  71. 580 EXTENSION (Index #16) (Token 0x8a)
  72. 590 REM 
  73. 6 REM 
  74. 60 DIM
  75. 600 REM >>>  FIRE  <<<<
  76. 610 REM 
  77. 620 VARNAME
  78. 630 IF
  79. 640 IF
  80. 650 VARNAME
  81. 70 DIM
  82. 80 DIM
  83. 85 REM >>>  SET UP POINTERS TO THE MEMORY BANKS  <<<<
  84.